home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_LIB.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  1.6 KB  |  40 lines
  1. Unit SPX_LIB;
  2.  
  3. {$O+,X+,B- }
  4. { SPX Library Version 3.0 Copyright 1994 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses dos,spx_vga,spx_dos,spx_obj,spx_fnc;
  9.  
  10. const
  11.   MAX_LIB_FILES = 3100; { maximum number of files in a library }
  12.  
  13. type
  14.   tLibHandle = record
  15.                  open : pointer; { points to lib }
  16.                  cPos : longint; { current position }
  17.                  sPos : longint; { start position }
  18.                  size : longint; { size of file }
  19.                end;
  20.   pSPXLib    = ^tSPXLib;
  21.   tSPXLib    = object(tobjs)
  22.                  open      : boolean;
  23.                  directory : pointer;
  24.                  fileCount : word;
  25.                  dirfile   : file;
  26.                  constructor init(libName:string;LoadDir:boolean);
  27.                  procedure LoadDirectory; virtual;
  28.                  procedure FreeDirectory; virtual;
  29.                  procedure OpenFile(fileName:string;var fileHandle:tLibHandle);virtual;
  30.                  function ReadFile(var fileHandle:tLibHandle;var buffer;size:word):word;virtual;
  31.                  function PosOfFile(var fileHandle:tLibHandle):longint;virtual;
  32.                  function EndOfFile(var fileHandle:tLibHandle):boolean;
  33.                  procedure SeekFile(var fileHandle:tLibHandle;position:longint);virtual;
  34.                  procedure CloseFile(var fileHandle:tLibHandle);virtual;
  35.                  function LoadVSPfile(fileName:string;var buff):integer;virtual;
  36.                  function LoadColorsfile(fileName:string;var buff):integer;virtual;
  37.                  destructor done;virtual;
  38.                end;
  39.  
  40.